;Place a "hiding" solid over a rectangular area (on layer ?-NPLTFAREA).
;
;	AUTHOR: HENRY C. FRANCIS
;		425 N. ASHE ST.
;		SOUTHERN PINES, NC 28387
;		All rights reserved without prejudice.
;	Copyright:      1-26-96
;	Edited:		6-4-97
;
(defun c:hdrec (/)
(if c:mklayr nil (load"mklayr"))
(c:svlayr)
(if dimscl nil (load"dimscl"))
(dimscl)
(if gvpno nil (load"gvpno"))
(gvpno)
(if mjrg nil (setq mjrg "C"))
(setq ntz 20000                ;(* 1000 dimsc)
      llt "-"
;      prod "NPLT"
;      colra "F"
;      colri "15"
      colr "1"
      modf "NPLT"
);setq
(while
  (setq pt1 (upoint 0 "" "First 3DFACE point" nil nil))
  (setq pt2 (upoint 0 "" "Second 3DFACE point" nil pt1))
  (setq pt3 (upoint 0 "" "Third 3DFACE point" nil pt1))
  (setq pt4 (inters pt2 
                    (polar pt2 (angle pt1 pt3) 100)
                    pt3
                    (polar pt3 (angle pt1 pt2) 100)
            )
  )
  (c:mklayr)
;  (setq tlayr (getvar"clayer"))
  (setq bxp1 (list(car pt1)(cadr pt1)ntz)
        bxp2 (list(car pt2)(cadr pt2)ntz)
        bxp3 (list(car pt3)(cadr pt3)ntz)
        bxp4 (list(car pt4)(cadr pt4)ntz)
  );setq
;  (command ".solid" bxp1 bxp2 bxp3 bxp4 "")
  (setq 3dflst
    (list
      (cons 0 "3DFACE")
;      (cons 8 tlayr)
      (cons 10 bxp1)
      (cons 11 bxp2)
      (cons 12 bxp4)
      (cons 13 bxp3)
      (cons 67 as_67)
      (cons 70 15)
    )
  )
  (entmake 3dflst)
);while
  (c:rslayr)
;  (if (or(eq(substr(getvar"clayer")3 4)"NPLT")(eq(substr(getvar"clayer")8 4)"NPLT"))
;    (command ".layer" "m" "TEMP" "")
;  );if
;  (command ".layer" "of" "*nplt*" "")
);defun
